﻿Imports Cls_Common
Partial Class MasterPages_Admin
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Dim lstActiveUser As Integer() = {1, 2, 3, 4}
        If Session("IsUser") Is Nothing Or Not lstActiveUser.Contains(Session("IsUser")) Then
            If Not Session("IsUser") Is Nothing And Session("IsUser") = 5 Then
                Response.Redirect(MainDomain & "Index.aspx")
            End If
            Response.Redirect(MainDomain & "Login.aspx")
        End If

    End Sub
End Class

